function controlPlot(proj_meta,cur_site)
ExpGroup=proj_meta(cur_site).ExpGroup;
a=[];
for tnd=1:length(proj_meta(cur_site).ExpGroup)
    a(tnd)=median(proj_meta(cur_site).rd(1,tnd).vis_speed(...
        proj_meta(cur_site).rd(1,tnd).vis_speed>0.5));
end
[timeDiff,actualTimes,fullExpDuration]=get_intraExpTime(proj_meta,cur_site);
runPerct=get_runPerctMeta(proj_meta,cur_site);
exp_length=get_intraExpLength(proj_meta(cur_site).ExpGroup);
[perct,~]=get_active_cell_perct(proj_meta,cur_site);
figure;
for gnd=1:7
    subplot(4,2,gnd)
    hold on
    if gnd==1
        plot(timeDiff)
        title('Time difference between exp','fontweight','bold')
        ylabel('Time (hrs)')
    elseif gnd==2
        plot(actualTimes)
        ylim([0 24])
        title('Time of day of exp','fontweight','bold')
        ylabel('Time of day')
        xlabel('Exp Time Points')
    elseif gnd==3
        plot(exp_length/2400)
        title('Recorded exp length','fontweight','bold')
        ylabel('Time (mins)')
        xlabel('Exp Time Points')
    elseif gnd==4
        plot(fullExpDuration)
        title('Full exp length','fontweight','bold')
        ylabel('Time (mins)')
        xlabel('Exp Time Points')
    elseif gnd==5
        plot(runPerct)
        ylim([0 100])
        title('% of time spent running','fontweight','bold')
        xlabel('Exp Time Points')
    elseif gnd==6
        plot(a)
        title('Median visual flow speed','fontweight','bold')
        ylabel('Vertical bar frequency (Hz)')
        xlabel('Exp Time Points')
    elseif gnd==7
        plot(perct)
        ylim([0 100])
        title('Percent of active cells','fontweight','bold')
        ylabel('% cells')
        xlabel('Exp Time Points')
    end
end